DP839EB-ATS SONIC 
Packet Driver for PC/TCP 
by FTP Software 



INTRODUCTION 

This is a program listing for a driver for the DP839EB-ATS 
SONIC Ethernet Adapter. This driver enables the DP839EB- 
ATS to operate with a TCP/IP software package from FTP 
Software Inc. called PC/TCP. This driver is written to ver- 
sion 2.0x of this software package. 
This software program listing is provided primarily as a pro- 
gramming example for writing software for the DP83932 
Systems Oriented Network Interface Controller. This driver 
is written in Microsoft C 5.1 and Microsoft Assembler 5.1. 
Since the bulk of the software is written in C, the concepts 
provided are easily portable to other environments. 
This example driver was not written to achieve optimum per- 
formance with PC/TCP, but primarily to show how the SON- 
IC Controller can be programmed. 

FILENAME: pktdrv.c 

static char Pktdrv_Sid[] = "%W% 

/* 
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This software does not make use of higher performance 
upper level features, and performance is limited by this. 
The driver is listed by modules in the order listed below. 



pktdrv.c 
far.c 



pktdrv.h 



6. sonic.h 

7. isrlib.asm 

8. pktint.asm 

9. pktdrv.mak (make file) 



************************* 



********* 



**************************** 

* Copyright (c) 1990 by National Semiconductor Corporation 

* All Rights Reserved 
******************************************************************* 



FILE: pktdrv.c 

NOTES: This program is a packet driver that provides a common interface 
between PC/TCP's kernel and NSC ' s SONIC hardware. This program 
was based on a set of drivers provided by Clarkson from FTP. 
This driver is NOT for performance testing due to PC/TCP limitations. 

UPDATE LOG: 
When/Who 



Why/What/Where 



10/23/90 Mike Lui 



*/ 

#include <stdio.h> 
#include <dos.h> 
tinclude <memory.h> 
#include <string.h> 
#include "pktdrv.h" 
#include "sonic.h" 



Convert to work for SONIC 
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/* externals */ 
extern void (interrupt far drv_isr) (); /* the interrupt we use */ 
extern unsigned _psp; /* segment address of PSP */ 



TL/F/1 1142-1 



Microsoft® is a registered trademark of Microsoft Corporation. 
PC/TCP® is a registered trademark of FTP Software Inc. 



JP» 

00 



©1995 National Semiconductor Corporation TL/F/1 1142 



RRD-B30M75/Printed in U. S. A. 



/* Driver information 

static unsigned int 

static unsigned char 

static unsigned int 

static unsigned char 

static unsigned int 

static char drv_name [] = 



*/ 

drv_version = 1; /* driver version */ 

drv__class = 1; /* driver class */ 

drv_type =14; /* driver type */ 

drv_number =0; /* driver number */ 

drv_funct = 1; /* basic driver function */ 
/* driver name */ 



"National Semiconductor SONIC/TCP Packet Driver"; 
static char cpy_msg[] = 

"Copyright (c) 1990 by National Semiconductor Corporation"; 
static char drv_rev [ ] = "1.0"; /* current driver rev */ 

static HANDLE handle_tbl [MAX_HANDLES] ; /* create handle structs */ 

void (interrupt far *sys_isr) {) ; /* remember system isr */ 

char far *pkt_signature = "PKT DRVR" ; 

unsigned int packet_int_no = 0x60; /* interrupt for communications */ 

static unsigned far *psp_ptr; /* pointer to PSP */ 

unsigned mem_sz; /* program memory size in paragraphs */ 



union REGS r_regs; 
struct SREGS s_regs; 
int send_pending; 
static int syn_installed; 



/* required for Synernetics */ 

/* required for Synernetics */ 



extern int opterr; 
extern int optind; 
extern char *optarg; 



/* 



main ( ) 



* Main procedure. 

* Once initialization is complete terminate and stay resident. 
*/ 

main {argc, argv) 
int argc; 
char *argv [] ; 
{ 

psp_ptr = (unsigned far *) ((unsigned long)_psp << 16); 

mem_sz = (psp_ptr[l] - _psp) ; 



init_drv (argc, argv) ; 



/* initialize driver and hardware */ 



outp (pagebase, 0) ; 
outpw (regbase+cr, 8); 



/* enable receiver */ 



/* terminate and stay resident */ 
_do s_keep ( , mem_s z ) ; 



int_handler () 

This routine is called from an assembly isr routine "drv_isr" 
to handle the application interrupt. The isr routine passes a 
set of pointers of the registers to this routine. Register AH 
contains which function is to be performed. These registers will 
be restored in "drv_isr" before returning from the interrupt. 
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Return values: If an error occurred the value will be in 
the DH register and the carry bit of cflag 
will be set. 



*/ 



int_handler (regs, sregs) 
union REGS far *regs; 
struct SREGS far *sregs; 
{ 

int ret_val; 

switch (regs->h. ah) { 
case 1 : 

ret_val = driver_inf o (regs, sregs); 

break; 
case 2: 

ret__val = access_type (regs, sregs); 

break; 
case 3: 

ret_val = release_type (regs, sregs); 

break; 
case 4 : 

ret_val = send_packet ( regs, sregs); 

break; 
case 5: 

ret_val = terminate (regs, sregs); 

break; 
case 6: 

ret_val = get_address (regs, sregs); 

break; 
case 7 : 

ret_val = reset_interf ace (regs, sregs); 

break; 
case 24 : 

ret_val = get_stats (regs, sregs); 

break; 
default : 

ret val = BAD COMMAND; 



if(ret_val) { 

regs->h.dh = ret_val; 

regs->x. cflag |= Oxl; 
} 



/* put error code into dh */ 
/* and set carry bit */ 



/* 

* driver_info () 
* 

* Return information on the driver interface. Handle is optional 

* and is not used in new driver?? 



Return values : 



Success 



dr 
un 

st 
{ 



iver_info (regs, sregs) 
ion REGS far *regs; 
ruct SREGS far *sregs; 

regs->x.bx = drv_version; 
regs->h.ch = drv_class; 

regs->x.dx = drv_type; 
regs->h.cl = drv_number; 
regs->x.si = (unsigned) drv_name; 



/ * driver version */ 
/* driver class */ 
/* driver type */ 
/* driver number */ 

/* driver name */ 
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sregs->ds = (unsigned long) ((char far * ) drv_name ) » 16; 

regs->h.al = drv_funct; /* driver function */ 

return 0; 
} 



/* 

* access_type () 
* 

* Initiate access to packets for the specific type. Since the packet 

* type field needs to have the bytes of 16 bit values swaped, the 

* handle will store the type field byte swapped. 

* Return values: - Success 

* >0 - Failure 
*/ 

access_type (regs, sregs) 
union REGS far *regs; 
struct SREGS far *sregs; 
f 

int i, n, 

open_handle = OPEN, /* available handle */ 

type__cnt ; 
unsigned char type_buf [MAX_TYPE_LEN] ; 

/* first check a few things to make sure packet access is ok */ 

/* check class */ 

if (regs->h. al != drv_class) { 

return NO_CLAS; 
} 

/* check type (ours or generic) */ 

if {! ((regs->x.bx == drv_type) | | (regs->x.bx — -1))) { 

return NO_TYPE; 
} 

/* check number (ours or generic) */ 

if < ! ( <regs->h.dl == 0) || (regs->h.dl ==1))) { 

return NO_NUMBER; 
} 

/* check packet type length, if too long its not ours */ 
if (regs->x.cx > MAX_TYPE_LEN) { 

return TYPE_INUSE; 
} 

/* 

* now check for an available handle and if the handle already 

* exists with same packet type. 
*/ 

type_ptr = (char far *) (((unsigned long) sregs->ds << 16) 1 regs->x.si) 

for(i =0; i < regs->x.cx; i++) 
type_buf[i] = type_ptr [i] ; 

for(n = 0; n < MAX_HANDLES; n++) { 

if (handle__tbl [n] . infuse) { /* check packet type */ 

type__cnt = MIN (regs->x. ex, handle_tbl [n] . len) ; 
if ( ! f ar_memcmp ( (char far *)type_buf, 

(char far *) handle_tbl [n] . type, type^cnt)) 
return TYPE_INUSE; /* duplicate types */ 
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} 

else if {open handle == OPEN) 






open handle = n; /* grab first open handle *7 
} 






if (open handle — OPEN) 






return BAD HANDLE; /* no available handles */ 






/* copy the handle */ 






handle tbl [open handle]. in use++; 






for(i =0; i < regs->x.cx; i++) { 






handle_tbl [open__handle] . type [i] = type_buf[i]; 






s 

handle tbl[open handle]. len = regs->x.cx; 






handle_tbl [open_handle] . rec_es = sregs->es; 






handle tbl [open handle]. rec di = regs->x.di; 






regs->x.ax = open handle; /* return handle */ 






return 0; /* return success */ 






} 
/* 






* release_type () 






* Release access to packets with a particular handle. 






* Return values: - Success 






* >0 - Failure 






*/ 






release_type (regs, sregs) 






union REGS far *regs; 






struct SREGS far *sregs; 






1 

if (chk_handle (regs->x.bx) ) 






return BAD_HANDLE; 






/* release handle */ 






handle tbl [regs->x.bx] . in use = 0; 






return 0; 
} 






/* 






* send_packet () 
* 






* Send packet buffer. 
* 






* Return values: - Success 






* >0 - Failure 






*/ 






send_packet (regs, sregs) 






union REGS far *regs; 






struct SREGS far *sregs; 






1 

char far *frame ptr; /* pointer to frame */ 






unsigned long pkt addr; /* physical address of 


packet 


*/ 


unsigned int buf len; /* frame length */ 






int i; 






short previous_jtda; 






/* check if frame is too big */ 
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if (regs->x.cx > BUF_SZ) 
return NO SPACE; 



/* update driver stats */ 
drv_stats . packet s_out++; 
drv__stats . bytes__out += regs->x.cx; 

/* point to the app ' s send frame */ 

frame_ptr = {char far *) {{{unsigned long) sregs->ds << 16) | 

regs->x. si) ; 
pkt_addr = {unsigned long) sregs->ds * 16 + regs->x.si; 

buf_len = regs->x.cx; /* f rarne+FC+SNAP length */ 

/* save current tda */ 
previous_tda=curtda ; 

if (transmitactive) { 

/* network is currently busy transmitting, just queue up the tda */ 

if (curtda==TDANUM-l) { 

/* load tda with the transmit fragment */ 

tda[0] . pkt_size=buf__len; 

tda[0] . f rag_count=l ; 

tda [0] . frag_ptrO= (unsigned short) pkt_addr; 

tda [0] .frag__ptrl=pkt_addr » 16; 

tda[0] . f rag_size=buf_len; 

tda[0] .link |=1; 

curtda=0; 
} 

else { 
/* load tda with the transmit fragment */ 

tda [curtda+1] .pkt_size=buf_len; 

tda [curtda+1] . f rag_count=l; 

tda [curtda+1] . frag_ptr0= (unsigned short) pkt_addr; 

tda [curtda+1] . frag_ptrl=pkt_addr >> 16; 

tda [curtda+1] . f rag_size=buf_len; 

tda [curtda+1] .link |= 1; 

curtda++; 
} 

tda [previous_tda] , link &= OxOfffe; 
} 
else { 

/* network is free */ 
retry=0; 

/* load tda with the transmit fragment */ 
tda[0] .pkt_size=buf_len; 
tda [ ] . f rag_count=l ; 

tda [0] . frag_ptr0= (unsigned short) pkt_addr; 
tda[0] .f rag_ptrl=pkt_addr » 16; 
tda[0] . f rag_size=buf_len; 
tda[0] .link |= 1; 
curtda=0; 

outp (pagebase, 0); 

outpw (regbase+ctda, tda_addr) ; /* load ctda */ 
transmitactive=l; /* set network flag to busy */ 

} 

outp (pagebase, 0); /* get the first page */ 

outpw (regbase+cr, 2); /* issue the transmit command */ 

return 0; 
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} 
/* 

* terminate () 

* Terminate the driver. 

* 

* Return values: - Success 

* >0 - Failure 
*/ 

terminate (regs, sregs) 
union REGS far *regs; 
struct SREGS far *sregs; 
{ 

int sonic__irq; 

sonic_irq=3; 

_dos_setvect (packet_int_no, sys_isr) ; /* put back system isr */ 

sonic_isr_di sable (sonic_irq) ; /* remove sonic interrupt 

*/ 

/* free environment memory */ 
_dos_f reemem (psp_ptr [0x16] ) ; 

/* free memory and return to app */ 
if (_dos_f reemem (_psp) ) 

return CANT_TERMINATE; 

return 0; 



/* 

* get_address ( ) 

* Get the local net address. 

* Return values: - Success 

* >0 - Failure 
*/ 

get_address (regs, sregs) 
union REGS far *regs; 
struct SREGS far *sregs; 
{ 

char buf [6] ; 

int i, old_mode; 

char far *addr_ptr; /* pointer to address */ 

if (chk_handle (regs->x.bx) ) 
return BAD_HANDLE; 

/* get buffer */ 

addr_ptr = (char far *)(( (unsigned long) sregs->es « 16) | regs->x.di); 

/* 

* copy ethernet address from hardware. 

* regs->x.cx is the length of buffer, fail if address 

* is too big to fit in buffer - NO_SPACE 
*/ 

if (regs->x. ex < 6) 
return NO SPACE; 
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regs->x.cx = 6; 

for(i =0; i < regs->x.cx; i + +) 

addr_ptr[i] = inp (iobase+i) ; 
} 

return 0; 



} 

/* 

* reset_interface 

* 

* Reset the interface for the particular handle. If more than one 

* handle is open return CANT_RESET so other applications (handles) 

* will not get confused. 

* Return values: - Success 

* >0 - Failure 
*/ 

reset_interface (regs, sregs) 
union REGS far *regs; 
struct SREGS far *sregs; 
{ 

char far *addr_ptr; /* pointer to address */ 

int i, handle__cnt = 0; 

if (chk_handle (regs->x . bx) ) 
return BAD_HANDLE; 

/* check if there is more than one handle is open */ 
for(i = MIN_HANDLE; i < MAX_HANDLES ; i++) 

if (handle_tbl [i] . in_use != 0) handle__cnt++; 
if <handle_cnt > 1) 
return CANT RESET; 



/* Reset the hardware to a known state */ 
/* Will need something maybe ??? */ 

return 0; 



/* 

* get_stats () 

* Return driver statistics. 
* 

* Return values : - Success 

* >0 - Failure 
*/ 

get_stats (regs, sregs) 
union REGS far *regs; 
struct SREGS far *sregs; 
{ 

if (chk_handle (regs->x. bx) ) 
return BAD_HANDLE; 

regs->x.si = (unsigned) &drv_stats; /* driver stats */ 

sregs->ds = (unsigned long) ((char far *) &drv_stats) >> 16; 
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return 0; 



/* 

* drv_rcvr { ) 

* Receiver procedure. Once a frame is recieved, we need to make two upcall 

* with the receiving routine provided by the application. The first 

* call (AX ==0) is to request a buffer to copy the frame to. The second 

* call (AX == 1) indicates that the frame has been copied. 

* Return values: - Success 

* >0 - Failure 
*/ 

/* void far drv__rcvr() */ 

drv_rcvr ( ) 

{ 

int i ; 

int handle_found = OPEN; /* set if valid frame recieved */ 

unsigned char far *frame; 

char far *cp_ptr; 

/* get the frame */ 

while (rda [currda] . status != 0) { 

frame= (unsigned char far *) (((unsigned long) rda [currda] . pkt_ptrl « 28) 
! rda [currda] .pkt_ptr0) ; 

/* validate the received frame */ 
for(i = MIN_HANDLE; i < MAX_HANDLES ; i++) { 
if ( (handle_tbl[i] .infuse ==0) || 

(({{unsigned long) handle_tbl [i] . rec_es « 16) I 
handle_tbl [i] . rec_di) == NULL)) 
continue; /* go to next handle */ 

if ( ! far_memcmp{ {char far *) handle_tbl [i] . type, 

&frame[ETYPE_OFS] , handle_tbl [ i] . len) ) { 
handle_found = i; 
break; 
} 
} 
if (handle_found == OPEN) { 

drv_stats . packet s_dropped++ ; 

f ree_rda () ; 
continue ; 
} 

/* update driver stats */ 
drv_stats . packet s_in++; 
drv_stats.bytes_in += rda [currda] .by te_count; 

/* first upcall, tell them frame size */ 

app_recv(0, handle_f ound, MAX (rda [currda] .byte_count-4, 64), 

(char far *)&cp_ptr, handle_tbl [handle_f ound] . rec_di, 

handle^tbl [handle__found] . rec_es) ; 

/* check if copy is permitted */ 
if (cp_ptr == NULL) { 

drv_stats . packet s_dropped++ ; 
f ree_rda () ; 

continue; 
} 



/* copy the frame */ 

f arjnemcpy (&cp__ptr [0] f &frame[0], rda [currda] . byte_count -4 ) ; 

/* second upcall, tell them frame has been copied */ 

app_recv(l, handle_found, rda [currda] . byte_count-4 , (char far *)&cp_ptr, 

handle_tbl [handle_f ound] . rec_di, 

handle__tbl [handle_f ound] . rec_es) ; 

/* free rda */ 
free rda () ; 



/* 

* free_rda() 
* 

* This routine is to free up the currently examined rda for later use 

*/ 

f ree_rda ( ) 
{ 

static int first; 

unsigned short tmp_value; 

/* check fifo overrun */ 
outp {pagebase, 0) ; 
if {inpw (regbase+isr) & ISR__RFO) 
outpw(regbase+isr, ISR_RFO) ; 

/* reinitialize the rda */ 
rda [currda] . status=0; 
rda [currda] . byte_count=0 ; 
rda [currda] . pkt_ptr0=0; 
rda [currda] . pkt_ptrl=0; 
rda [currda] . in_use=0x0f f f f ; 
rda [currda] .pkt_link (= 1; 

/* link the previous rda to the current rda */ 
if (currda==0) 

rda [RDANUM-1] . pkt_link&=0x0f f f e ; 
else 

rda [currda-1] . pkt_link&-=0x0f f f e; 

/* get the first buffer number */ 
if (! first) { 

previous_seqno=rda [currda] . seq_no >> 8; 

first=l; 



/* check whether rba can be reused */ 
if (rda [currda] . seq_no » 8 != previous_seqno) [ 
previous_seqno=rda [currda] . seq_no >> 8 ; 
tmp_value=rwp_table [cur__rwp] ; 
if (cur_rwp==2) 

cur_rwp=0 ; 
else 

cur_rwp++; 
outp (pagebase, 0x18); 



TL/F/1 1142-10 



10 



outpw (regbase + rwp, tmp_value) ; 
outp (pagebase f 0); 
tmp_value=inpw (regbase + isr) ; 
if <tmp_value & ISR_RBE) 

outpw (regbase + isr, ISR_RBE) ; 



/* check rde */ 

outp (pagebase, 0) ; 

if (inpw (regbase+isr) & ISR_RDE) { 

outpw (regbase+isr, ISR_RDE) ; 

outp (pagebase, OxOd) ; 

tmp_value=inpw (regbase+crda) & OxOfffe; 

outpw (regbase+crda, tmp__value) ; 
} 

if (currda *== RDANUM-1) 

currda=0; 
else 

currda++; 



/* 

* init_drv() 
* 

* Initialize the driver and hardware. 
*/ 

init_drv (argc, argv) 
int argc; 
char *argv [ ] ; 
{ 

char far *ptr; 

int kill_drv; 

fprintf (stderr, 

"%s -- Version %s\n%s\n", drv_name, drv_rev f cpy msg) ; 

kill_drv = do__args (argc, argv); /* process command line */ 

sys_isr = _dos_getvect (packet_int_no) ; /* get system isr */ 
ptr = (char far *)sys_isr + 3; 

if(kill_drv) /* terminate active driver */ 

kill_driver (ptr) ; 

if ((ptr != NULL) && (f ar_strcmp (pt r , pkt_signature) =-0)) { 
fprintf (stderr, 

"Error: a packet driver already exist at interrupt Ox%x\n" 
packet_int_no) ; 
exit (1) ; 



_dos_setvect (packet_int_no, drv_isr) ; /* install driver isr */ 

init(); /* init SONIC */ 

fprintf (stderr, 

"Packet Driver is using INT 0x°r,x and %ld bytes of memory\n", 
packet_int_no, (unsigned long)mem_sz * 16); 
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/* 

* chk_handle { ) 

* Check if handle is valid. 
* 

* Return values: - Success 

* >0 - Failure 
*/ 

chk_handle (handle) 
unsigned int handle ; 
{ 

/* check if handle is in range */ 

if ((handle < MIN_HANDLE) || {handle >= MAX_HANDLES) ) 
return BAD_HANDLE; 

/* check if handle is in use */ 
if (handle_tbl [handle] . in_use == 0) 
return BAD HANDLE; 



return 0; 
} 

/* 

* kill_driver ( ) 

* Terminate driver from memory 

* Return values: none - exits from program 
*/ 

kill_driver (ptr) 
char far *ptr; 
{ 

if ((ptr == NULL) || { f ar_st rcmp (ptr , pkt_signature) != 0)) { 
fprintf (stderr, 

"Error: no packet driver at interrupt 0x%x\n", 
packet_int_no) ; 
exit (1) ; 
} 

r_regs.h.ah = 5; 
r_regs.x.bx = 0; 

int86 (packet_int_no # &r_regs, &r_regs) ; 
if (r_regs. x. cf lag) { 

fprintf (stderr, "Error: packet driver can not terminate\n" ) ; 
exit (1) ; 
} 

print f ("Terminated packet driver at interrupt 0x%x\n", packet_int_no) ; 
exit (0) ; 
} 



/* 

* do_args ( ) 

* Process program arguments using getoptO 

* Return values: - Success 

* 1 - Terminate driver 
*/ 

do_a rgs ( a rgc , a rgv ) 
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int argc; 
char *argv [ ] ; 
{ 

int in, done = 0; 

char *sptr; 

if (argc ==1) /* use default packet_int_no */ 

return 0; 

#ifdef MSDOS 

if((sptr = strrchr (*argv, '\\')) != NULL) 

strcpy (*argv, sptr + 1); 
if((sptr = strrchr (*argv, '.')) != NULL) 
*sptr = '\0' ; 
#endif 

while {!done && ((in = getopt(argc, argv, "?hi:t:")) '. = -1)) { 
switch(in) { 
case *i ' : 
case ' t ' : 

if (sscanf (optarg, "0x%x", &packet_int_no) != 1) 
if (sscanf (optarg, "%d", &packet_int_no) != 1) { 
done = 1 ; 
break; 
} 
/* 
if (! strncmp (optarg, "Ox", 2)) 

sscanf (&optarg [2] , "%x", &packet_int_no) ; 
else 

sscanf (optarg, "%d", &packet_int_no) ; 
*/ 

if ( (packet_int_no < 0x60) II (packet_int_no > 0x80)) { 
f printf (stderr, 

"Error: packet_int_no should be in the range 0x60 to 0x80\n") ; 
exit (1) ; 
} 

done = 1 ; 

if (optind == argc) { 
if (in == 't ') 
return 1; 
else 

return 0; 
} 

break; 
} 
} 
fprintf (stderr, 

"Usage: %s [-h] [-i packet_int_no] [-t packet_int_no] \n", *argv) ; 
fprintf (stderr, 

" -h = this help message\n"); 
fprintf (stderr, 

" -i = set packet interrupt number, default is 0x60\n"); 
fprintf (stderr, 

" -t = terminate packet driver \n") ; 
exit (1) ; 
} 

int opterr = 1; 
int optind = 1; 
char * optarg; 
/* 
* getoptO -- Gets options from command line and breaks them up for analysis. 
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* It is functionally compatible with the UNIX version. 

* By Ted Thi 
*/ 

getopt (argc, argv, ctrlStr) 
int argc; 
char **argv, 

*ctrlStr; 
{ 

extern char *strchr(); 
register char *s_jptr; 
static int i; 

if (optind < argc && argv [optind] [++i] == '\0') { 
if (i == 1 ( | ++optind >= argc) 

return (-1) ; 
i = 1; 
} 
if (i <= 1) { 

if (optind >= argc |'| (*argv [optind] != '-' && *argv [optind] != '/') II 
argv [optind] [1] == f \0') 
return (-1) ; 
if (strcmp (argv [optind] + 1, "-") == 0) { 
optind++; 
return (-1) ; 
} 
} 

if (argv [optind] [i] == ':' || (s_ptr = strchr (ct rlSt r, argv [optind] [i ]) ) 
== NULL) { 
if (opterr) 

fprintf (stderr, "%s: illegal option — %c\n", *argv, argv [optind] [i] ) ; 
return ('?'); 
} 
if (s_ptr[l] ==':•) { 

if (argv [optind] [++i] == *\0') { 
i = 0; 

if (++optind >= argc) { 
if (opterr) 

fprintf (stderr, "%s: option requires an argument — %c\n" , *argv, 
*s_ptr) ; 
return ('?'); 
} 
} 

optarg = argv [optind++] + i; 
i = 0; 
} else 

optarg = NULL; 
return (*s_ptr) ; 
} /* of getopt () */ 
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FILENAME: far.c 

/* 

************* ******************************** ***************** A******** 

* Copyright (c) 1990 National Semiconductor Corporation 

* All Rights Reserved 
*********************************************************************** 

*/ 
#include <dos.h> 



void far_memcpy (dest, src, cnt) 
register char far *dest; 
register char far *src; 
register unsigned cnt; 
{ 

while (cnt — ) *dest++ = *src++; 
} 



char far *f ar_strcpy (si , s2) 
register char far *sl, far *s2; 
{ 

char far *s3 = si; 

while <*s2) *sl++ = *s2++; 

return (s3) ; 
} 



far_strcmp(sl f s2) 

register char far *sl, far *s2; 

{ 

while(*sl) { 

if(*sl != *s2) returnC^sl - *s2)j 
sl++; s2++; 
} 

return (*sl - *s2) ; 
} 



far__memcmp(sl, s2, cnt) 
register char far *sl, far *s2; 
register int cnt; 
{ 

while ( — cnt > 0) { 
if(*sl != *s2) 

return (*sl - *s2) ; 
sl++; s2++; 
} 
return (*sl - *s2) ; 
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FILENAME: isr.c 

/* 
************************* ********************** ******************************* 

* Copyright (c) 1990 National Semiconductor Corporation * 

* All Rights Reserved * 
****************************************************************************** 

*/ 

#include <dos.h> 
#include "sonic. h" 

#define ISR_STACK_SZ 2048 

static char irq__map[] = { 

0x08, 0x09, 0x0a, 0x0b, 0x0c, OxOd, OxOe, OxOf, 
0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77 

}; 

static int pic_ctl; 
static int pic_mask; 
static int old_mask_val ; 

void (interrupt far *sys_irq_int ) <); 

void interrupt far sonic_isr(); 

void sonic_isr_enable (irq) 

int irq; 

{ 

pic_ctl = irq < 8 ? 0x20 : OxaO; 

pic_mask = pic_ctl + 1; 

old_mask_val = inp (pic_mask) ; 
sys__irq_int = _dos_getvect (irq__map [irq] ) ; 

_di sable () ; 

_dos_setvect (irq_map[irq] , sonic_isr) ; 
outp (pic_mask, old__mask_val & ~(1 << irq)); 
enable () ; 



void sonic_isr_disable (irq) 

int irq; 

{ 

_di sable () ; 

__dos_setvect (irq_map [irq] , sys_irq_int) ; 

outp (picjmask, old_mask_val) ; 

_enable ( ) ; 
} 



static char far *old_sp; 

static char isr stack[ISR STACK SZ]; 



void interrupt far sonic_isr() 
{ 

char far *(far get__sp) (); 

void (far set_sp) (); 

unsigned short isr_reg; 
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unsigned short activetda; 

outp (pagebase, 0) ; 

outpw (regbase+imr, 0); /* unmask the imr */ 

old_sp = get__sp ( ) ; 

set_sp((char far *)isr_stack + ISR_STACK_SZ) ; 

^enable { ) ; 

outp (pagebase, 0); /* get the right page */ 

isr_reg=inpw (regbase+isr) ; 

while (isr_reg) { 

if (isr_reg & ISR___PKTRX) { /* is there a receive */ 

outp (pagebase,. 0); 

outpw (regbase+isr, ISR__PKTRX) ; /* clear receive bit */ 

drv_rcvr(); /* process rda */ 

} 
if (isr_reg & ISR_TXDN) { /* is there is transmit done */ 

outp (pagebase, 0); /* clear transmit done bit */ 

outpw (regbase+isr, ISR_TXDN) ; 

transmitactive=0 ; 
} 

if (isr_reg & ISRJTXER) { /* is there a transmit error */ 

outp (pagebase, 0); /* clear transmit error bit */ 

outpw (regbase+isr, ISR_TXER) ; 

if (retry > 10) { /* if retry 10 and still not succeed 

to transmit this tda */ 

outp (pagebase, 0); /* throw away this tda */ 
activetda=inpw (regbase+ctda) ; 
activetda &= OxOfffe; 
outpw (regbase+ctda, activetda+16) ; 
} 

else { /* try again */ 

outp (pagebase, 0) ; 

outp (regbase+cr, 2); /* transmit */ 
} 
} 

outp (pagebase, 0) ; 
isr_reg=inpw (regbase+isr) ; 
} 

_disable () ; 

set_sp (old_sp) ; 

outp(pic_ctl, 0x20); 

outp (pagebase, 0); 

outpw (regbase+imr, 0x0700); 
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FILENAME: sonic.c 



#include 
#include 



'sonic. h" 
"dos. h" 



* init () 

* This routine is from init_drv() to initialize sonic buffer and sonic 

* registers. 

* 

* Return values: if success 

* 1 if fail 



init () 



short i; 

unsigned short cur_loc; 

int sonic_irq; 

/* set up DMA controller */ 
outp<0xd0, 0x10) j 
outp(0xd6, 0xd2); 
outp{0xd4, 0x02), 
outp(0xde, 0x00) ; 



/* initialize valuables */ 

transmitactive=0 ; 

curtda=Q; 

currda=0 ; 

sonic_irq=3; 

/* install sonic interrupt */ 

sonic__isr__enable (sonic_irq) ; 

/* initialize sonic register */ 



outp (pagebase, 0) ; 
outpw (regbase+cr, 0x94); 
outpw (regbase+dcr, 0xl2de 



outpw (regbase+cr, 0); 
outpw (regbase+rcr, 0x2000); 
outpw (regbase+isr, OxOf f f f ) , 
outpw (regbase+imr, 0x700); 



/* set the right page */ 



/* 
/* 



/* 



reset sonic */ 

set configuration: 3 wait state 

16-bit data path 

block mode 

8 words receive fifo 

12 words transmit fifo */ 

out of reset mode */ 



reset isr */ 

set mask to xmit done, 



xmit error and 



receive packet */ 



init_tda () 
init__rda () 
init_rra () 
init cam() 



/* init tda */ 

/* init rda */ 

/* init rra */ 

/* init cam */ 



/* initialize rwp location table */ 
outp (pagebase, 0x15); 
cur_loc=inpw (regbase+rsa) ; 
for (i=0; i<3; i++) { 

rwp_table [i] =cur_loc; 

cur loc+=8; 
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} 

cur__rwp=0; 

/* normal operation */ 

outp (pagebase, 0); 

outpw (regbase+cr, 0x100); /* read rra */ 

return (0) ; 



} 



/* 

* init_tda() 

* This routine is to link the tda so as to make transmission more 

* efficient. It also initialize the utda and ctda registers. 
* 

*/ 

init_tda {) 
{ 

unsigned short i, ul6, 116; 

unsigned long addr32; 

char far *ptr; 

struct SREGS segregs ; 

segread (&segregs) ; /* Read the segment register value */ 
/* link the first nine tda */ 
for (i=0; KTDANUM-1; i++) { 

addr32= (( (unsigned long) segregs. ds « 16) I ((unsigned short) &tda[i+l])); 

ul6=addr32»16; 

116= (unsigned short) addr32; 

addr32= (unsigned long)ul6 * 16 + 116; 

tda[i] .config=0xl000; 

tda [i] . link= (unsigned short) addr32; 
} 

/* set the last tda link field to the first tda */ 

addr32= (( (unsigned long) segregs. ds « 16) | ((unsigned short) &tda[0])); 

ul6=addr32»16; 

116= (unsigned short) addr32; 

addr32= (unsigned long)ul6 * 16 + 116; 

tda [TDANUM-1] . link= (unsigned short) addr32; 

/* set the utda and ctda register */ 

outp (pagebase, 0) ; /* get the correct page */ 

outpw (regbase+utda, addr32>>16) ; /* set utda */ 

outpw (regbase+ctda, (unsigned short) addr32) ; /* set ctda */ 

tda__addr= (unsigned short ) addr32 ; 



/* 

* init_rda ( ) 

* 

* This routine is to link the rda together. It also initialize the urda and 

* crda registers. 
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init_rda () 

{ 

unsigned short i, ul6, 116; 
unsigned long addr32; 
struct SREGS segregs; 

segread(&segregs) ; /* Read the segment register value */ 

/* link the rda */ 

for (i=0; KRDANUM-1; i++) { 

addr32= (( (unsigned long) segregs . ds << 16) | ((unsigned short) 
&rda[i+l] ) ) ; 

ul6=addr32»16; 

116= (unsigned short ) addr32 ; 

addr32= (unsigned long)ul6 * 16 + 116; 

rda [i] .pkt_link= (unsigned short) addr32; 

rda[i] . in_use=0x0f f f f ; 
} 

/* set the last rda link field to the first rda */ 

addr32= (( (unsigned long) segregs. ds << 16) I ((unsigned short) &rda[0])) 

ul6=addr32»16; 

116= (unsigned short ) addr32 ; 

addr32= (unsigned long)ul6 * 16 + 116; 

rda [RDANUM-1] . in_use=0x0f f f f ; 

rda [RDANUM-1] .pkt_link= (unsigned short) addr32; 

rda [RDANUM-1 ]. pkt_l ink |=1; /* set EOL */ 

/* set the urda and crda register */ 

outp(pagebase, OxOd) ; /* get the correct page */ 

outpw (regbase+urda, addr32>>16) ; / * set urda */ 

outpw (regbase+crda, (unsigned short ) addr32) ; /* set crda */ 



/* 



* init_rra () 

* This routine is initialize the rra and set rsa, rea, rrp, rwp registers 
*/ 

init_rra ( ) 

{ 

unsigned short i, ul6, 116; 
unsigned long addr32; 
struct SREGS segregs; 

segread (&segregs) ; / * Read the segment register value */ 

/* initialize the rra slot */ 
for (i = 0; KRRANUM; i + +) { 

addr32= (( (unsigned long) segregs. ds « 16) I ((unsigned short) &rba[i])); 

ul6=addr32»16; 

116= (unsigned short ) addr32; 

addr32= (unsigned long)ul6 * 16 + 116; 

rra [i] . buf f_ptrO= (unsigned short) addr32 ; 

rra [i] . buf f_ptrl=addr32>>l 6 ; 

rra [i] . buf f_wc0 = 0x800 ; 

rra[i] .buff_wcl=0; 



} 
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addr32= (( {unsigned long) segregs.ds << 16) | {(unsigned short) &rra[0])), 

ul6=addr32»16; 

116= (unsigned short) addr32; 

addr32= (unsigned long)ul6 * 16 + 116; 

/* set urra, rsa, and rrp */ 

outp (pagebase, 0x14); /* set the right page * / 

outpw (regbase+urra, addr32 >> 16); /* set urra */ 

outpw (regbase+rsa, (unsigned short ) addr32 ) ; /* set rsa */ 

outpw (regbase+rrp, (unsigned short ) addr32 ) ; /* set rrp */ 

/* set rea and rwp */ 

addr32+=24; 

outpw (regbase+rea, (unsigned short) addr32); /* set rea */ 

outp (pagebase, 0x18); 

outpw (regbase+rwp, (unsigned short) addr32); /* set rwp */ 



* init_cam() 

* This routine is initialize the earn and set cdp, ede registers. Also, 

* load the cam. 



init_cam( ) 
{ 

unsigned short i, ul6, 116; 

unsigned long addr32; 

struct SREGS segregs; 

segread (&segregs) ; /* Read the segment register value */ 

addr32= (( (unsigned long) segregs.ds << 16) I {(unsigned short) &cam) ) ; 

u!6-addr32»16; 

116= (unsigned short) addr32; 

addr32= (unsigned long)ul6 * 16 + 116; 

outp (pagebase, 0x26); 

outpw (regbase+cdp, (unsigned short) addr32) ; /* load cdp */ 

outpw (regbase+ede, 16); /* load ede */ 

/* load the cda with node physical address */ 
cam.carn_port_info [0] .port0=inpw (iobase) ; 
cam. cam_port_inf o [0] .portl=inpw (iobase+2) ; 
cam. cam__port_inf o [ 0] .port2=inpw (iobase+4 ) ,- 
for(i=0; i<16; i++) 

cam.cam_port_info [i] . entry__ptr=i; 
cam.cam_enable=l; /* load cam enable */ 

/* load cam */ 
outp (pagebase, 0) ; 
outpw (regbase+cr, CMD_LCAM) ; 

/* to ensure load cam is properly executed and clear LCD bit in isr */ 
for (;;) { 

if (inpw (regbase+isr) & ISR_LCD) { 
outpw (regbase+isr, ISR_LCD) ; 
break; 
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FILENAME: pktdrv.h 

/* 



Copyright (c) 1990 by National Semiconductor Corporation 
All Rights Reserved 



«7 



/* Packet Driver Error 
# define BAD_HANDLE 
#define NO_CLAS 
#define NO_TYPE 
# define NO_NUMBER 4 
#define BAD_TYPE 5 
#define NO_MULTICAST 
#define CANT_TERMINATE 
#define BAD_MODE 8 
#define NO_SPACE 9 
#define TYPE_INUSE 

#define BAD_COMMAND 
#define CANT_SEND 12 
#define CANT_SET 13 

# define BAD_ADDRESS 
tdefine CANT RESET 



numbers */ 

1 /* invalid handle number */ 

2 /* no interfaces of specified class found */ 

3 /* no interfaces of specified type found */ 
/* no interfaces of specified number found */ 

/* bad packet type specified */ 

6 /* this interface does not support multicast*/ 

7 /* this packet driver cannot terminate */ 
/ * an invalid receiver mode was specified */ 

/* failed because of insufficient space */ 

10 /* the type has already been accessed */ 
/* and not released. */ 

11 /* command out of range, or not implemented */ 
/* packet couldn't be sent (usually hardware) */ 

/* hardware address couldn't be changed */ 
/* (more than 1 handle open) */ 

14 /* hardware address has bad length or format */ 

15 /* couldn't reset interface */ 
/* (more than 1 handle open) */ 



#define RUNT 
#define GIANT 
#define EADDR LEN 6 



60 /* smallest legal size packet, no fcs */ 
1514 /* largest legal size packet, no fcs */ 
/* Ethernet address length. */ 



#define MAX_HANDLES 10 

#define MIN_HANDLE 

#define MAX_TYPE_LEN 

#define OPEN -1 



/* max number of handles at one time */ 
/* handles are thru 9 */ 
2 /* max packet type length */ 
/* available handle */ 



#define MIN(a,b) 
#define MAX(a,b) 



(((a) 
(((a) 



(b)) 
(b)) 



(a) 
(a) 



(b)) 
(b)) 



/* handle structure */ 
typedef struct _handle 
int in use; 



/* non-zero if handle exist */ 



char type [MAX_TYPE_LEN] ; /* 

int len; /* 

unsigned int rec__es; /* 

unsigned int rec_di ; /* 
} HANDLE; 



packet type */ 

packet length */ 

receiver address segment */ 

receiver address offset */ 



static unsigned char bit_swap [256] 



0x00, 


0x80, 


0x40, 


OxcO, 


0x20, 


OxaO, 


0x60, 


OxeO, 


0x10, 


0x90, 


0x50, 


OxdO, 


0x30, 


OxbO, 


0x70, 


OxfO, 


0x08, 


0x88, 


0x48, 


0xc8, 


0x28, 


0xa8, 


0x68, 


0xe8, 


0x18, 


0x98, 


0x58, 


0xd8, 


0x38, 


0xb8, 


0x7 8, 


0xf8, 


0x04, 


0x84, 


0x44, 


0xc4, 


0x24, 


0xa4, 


0x64, 


0xe4, 


0x14, 


0x94, 


0x54, 


0xd4, 


0x34, 


0xb4, 


0x74, 


0xf4, 


0x0c, 


0x8c, 


0x4c, 


Oxcc, 


0x2c, 


Oxac, 


0x6c, 


Oxec, 


0x1c, 


0x9c, 


0x5c, 


Oxdc, 


0x3c, 


Oxbc, 


0x7c, 


Oxfc, 
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0x02, 


0x82 


0x42 


0xc2, 


0x22, 


0xa2 


0x62, 


0x12, 


0x92 


0x52 


0xd2, 


0x32, 


0xb2 


0x72, 


0x0a, 


0x8a 


0x4a 


Oxca, 


0x2a, 


Oxaa 


0x6a, 


Oxla, 


0x9a 


0x5a 


Oxda, 


0x3a, 


Oxba 


0x7a, 


0x06, 


0x86 


0x46 


0xc6, 


0x26, 


0xa6 


0x66, 


0x16, 


0x96 


0x56 


0xd6, 


0x36, 


0xb6 


0x76, 


OxOe, 


0x8e 


0x4e 


Oxce, 


Ox2e, 


Oxae 


0x6e, 


Oxle, 


0x9e 


0x5e 


Oxde, 


0x3e, 


Oxbe 


0x7e, 


0x01, 


0x81 


0x41 


Oxcl, 


0x21, 


Oxal 


0x61, 


Oxll, 


0x91 


0x51 


Oxdl, 


0x31, 


Oxbl 


0x71, 


0x09, 


0x89 


0x49 


0xc9, 


0x2 9, 


0xa9 


0x69, 


0x19, 


0x99 


0x59 


0xd9, 


0x39, 


0xb9 


0x79, 


0x05, 


0x85 


0x45 


0xc5, 


0x25, 


0xa5 


0x65, 


0x15, 


0x95 


0x55 


0xd5, 


0x35, 


0xb5 


0x75, 


OxOd, 


0x8d 


0x4d 


Oxcd, 


0x2d, 


Oxad 


0x6d, 


Oxld, 


0x9d 


0x5d 


Oxdd, 


0x3d, 


Oxbd 


0x7d, 


0x03, 


0x83 


0x43 


0xc3, 


0x23, 


Oxa3 


0x63, 


0x13, 


0x93 


0x53 


0xd3, 


0x33, 


Oxb3 


0x73, 


OxOb, 


0x8b 


0x4b 


Oxcb, 


x2b, 


Oxab 


0x6b, 


Oxlb, 


0x9b 


0x5b 


Oxdb, 


0x3b, 


Oxbb 


0x7b, 


0x07, 


0x87 


0x47 


0xc7, 


0x27, 


Oxa7 


0x67, 


0x17, 


0x97 


0x57 


0xd7, 


0x37, 


Oxb7 


0x7 7, 


OxOf , 


0x8f 


0x4f 


Oxcf , 


0x2 f, 


Oxaf 


0x6 f, 


Oxlf, 


0x9f 


0x5f 


Oxdf , 


0x3f, 


Oxbf 


0x7f, 



#def ine 



#define 



BIT_SWAP (a) 
BYTE_SWAP(a, b) 



0xe2, 
0xf2, 
Oxea, 
Oxfa, 
0xe6, 
0xf6, 
Oxee, 
Oxfe, 
Oxel, 
Oxfl, 
0xe9, 
0xf9, 
0xe5, 
Oxf5, 
Oxed, 
Oxfd, 
Oxe3, 
0xf3, 
Oxeb, 
Oxfb, 
0xe7, 
Oxf7, 
Oxef , 
Oxff , 



bit_swap [ (unsigned char ) (a)] 
* (a) = *<b+l) ; * (a+1) - * (b) ; } 



#define BUF_SZ 1514 

static unsigned char s_buf [BUF_SZ] ; 

static unsigned char snap [ ] = 
/* SNAP */ 
{ 170, 170, 3, 0, 0, }; 

#define ETYPE_OFS 12 
#define DATA_OFS 14 
#define MAC LEN 14 



static struct { 

unsigned long 
unsigned long 
unsigned long 
unsigned long 
unsigned long 
unsigned long 
unsigned long 

} drv stats; 



packet s_in; 
packets_out ; 
bytes_in; 
bytes_out ; 
errors_in; 
errors_out ; 
packet s_dropped; 
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FILENAME 


: sonic.h 










/* SONIC 


. definit 


ion and data structures */ 




#define 


iobase 




0x300 




#define 


pagebase 




0x30f 




#define 


regbase 




0x310 




#define 


TDANUM 




5 




#define 


RDANUM 




40 




#def ine 


RRANUM 




3 




#def ine 


RBA_ 


_BUF_SIZE 


4096 




/* isr bit pattern */ 








#define 


CMD_ 


_LCAM 




0x0200 




#define 


ISR^ 


_RFO 




0x0001 




#define 


ISR 


~RBE 




0x0020 




#define 


ISR_ 


"rde 




0x0040 




#define 


ISR_ 


[PKTRX 




0x0400 




#define 


ISR_ 


_TXDN 




0x0200 




#define 


ISR_ 


TXER 




0x0100 




#def ine 


ISR 


LCD 




0x1000 




/******************** 






* Offset of the register from the i/o base address * 




*******************************5t***^^^7t*******ir^A*>:>r/ 




#define 


cr 





/* 


Command */ 




#def ine 


dcr 


2 


/* 


Data Configuration */ 




#def ine 


rcr 


4 


/* 


Receive Control */ 




#define 


tcr 


6 


/* 


Transmit Control */ 




#def ine 


imr 


8 


/* 


Interrupt Mask */ 




#def ine 


isr 


10 


/* 


Interrupt Status */ 




#def ine 


utda 


12 


/* 


Upper Transmit Descriptor Addr */ 




#def ine 


ctda 


14 


/* 


Current Transmit Descriptor Addr */ 




#def ine 


tps 





/* 


Transmit Packet Size */ 




#def ine 


tfc 


2 


/* 


Transmit Fragment Count */ 




#def ine 


tsaO 


4 


/* 


Transmit Start Address */ 




#def ine 


tsal 


6 


/* 


Transmit Start Address 1 */ 




tdefine 


tfs 


8 


/* 


Transmit Fragment Size */ 




#def ine 


urda 




10 


/* Upper Receive Descriptor Addr */ 




#define 


crda 




12 


/* Current Receive Descriptor Addr */ 




#define 


crbaO 




14 


/* Current Receive Buffer Addr */ 




#def ine 


crbal 







/* Current Receive Buffer Addr 1 */ 




#def ine 


rbwcO 




2 


/* Remaining Buffer Word Count */ 




#define 


rbwcl 




4 


/* Remaining Buffer Word Count 1 */ 




#define 


eobc 




6 


/* End of Buffer Word Count */ 




tdefine 


urra 




8 


/* Upper Receive Resource Addr */ 




#define 


rsa 




10 


/* Resource Start Addr */ 




tdefine 


rea 




12 


/* Resource End Addr */ 




tdefine 


rrp 




14 


/* Resource Read Addr */ 




tdefine 


rwp 







/* Resource Write Addr */ 




tdefine 


trbaO 




2 


/* Temp Recv. Buffer Addr */ 




tdefine 


trbal 




4 


/* Temp Recv. Buffer Addr 1 */ 




tdefine 


tbwcO 




6 


/* Temp Buffer Word Count */ 




tdefine 


tbwcl 




8 


/* Temp Buffer Word Count 1 */ 




tdefine 


addrO 




10 


/* Address Generator */ 




tdefine 


addrl 




12 


/* Address Generator 1 */ 




tdefine 


Ufa 




14 


/* Last link Field Addr */ 




tdefine 


ttda 







/* Temp Transmit Descriptor Addr */ 
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#define 


cep 




2 




/* CAM entry Point */ 




#def ine 


cap2 




4 




/* CAM Address Port 2 */ 




#define 


capl 




6 




/* CAM Address Port 1 */ 




#define 


capO 




8 




/* CAM Address Port */ 




#define 


ce 




10 


/* CAM Enable */ 




#define 


cdp 




12 


/* CAM Descriptor Pointer */ 




# define 


cdc 




14 


/* CAM Descriptor Count */ 




#define 


sr 









/* Silicon Revision */ 




#define 


wtO 




2 




/* Watchdog Timer */ 




#def ine 


wtl 




4 




/* Watchdog Timer 1 */ 




#def ine 


rsc 




6 




/ * Receive Sequence Counter */ 




#def ine 


crct 




8 




/* CRC Error Tally */ 




#define 


faet 




10 


/* FAE Error Tally */ 




#define 


nipt 


12 




/* 


Missed Packet Tally */ 




#define 


mdt 


14 




/* 


Maximum Deferral Timer */ 




#define 


rtc 







/* 


Receive Test Control */ 




#define 


ttc 


2 




/* 


Transmit Test Control */ 




#def ine 


dtc 


4 




/* 


DMA Test Control */ 




#def ine 


ccO 


6 




/* 


CAM Comparison */ 




#def ine 


ccl 


8 




/* 


CAM Comparison 1 */ 




#define 


cc2 


10 




/* 


CAM Comparison 2 */ 




#def ine 


cm 


12 




/* 


CAM Match */ 




#define 


reservel 14 


/* 


Reserved */ 




Idefine 


reserve2 




/* 


Reserved */ 




#def ine 


rbc 


2 




/* 


Receiver Byte Count */ 




#define 


reserve3 4 




/* 


Reserved */ 




#def ine 


tbc 


6 




/* 


Transmitter Backoff Counter */ 




#def ine 


trc 


8 




/* 


Transmitter Random Counter */ 




#define 


tbm 


10 




/* 


Transmitter Backoff Mask */ 




#define 


reserve4 12 


/* 


Reserved */ 




#define 


reserves 14 


/* 


Reserved */ 




/* tda structure */ 










typedef 


struct 


tda construct { 




unsigned 


short 




status; 




unsigned 


short 




conf ig; 




unsigned 


short 




pkt__size; 




unsigned 


short 




frag count; 




unsigned 


short 




f rag_ptr0; 




unsigned 


short 




frag ptrl; 




unsigned 


short 




frag size; 




unsigned 


short 




link; 




} tda_ 


struct, 












/* rda structure */ 










typedef 


struct 


rda_construct { 




unsigned 


short 




status; 




unsigned 


short 




byte_count; 




unsigned 


short 




pkt_ptr0; 




unsigned 


short 




pkt_ptrl ; 




unsigned 


short 




seq no; 




unsigned 


short 


pkt link; 




unsigned 


short 




in 


_use; 




} rda_ 


_struct , 












/* rra structure */ 










typedef 


struct 


rra_construct { 






unsigned short 


buff__ptr0; 






unsigned short 


bu 


tf ptrl; 






unsigned short 


bu 


Ef^wcO; 
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unsigned short buff_wcl; 
} rra_struct; 

/* rba structure */ 

typedef struct rba_construct { 

unsigned char buf f [RBA__BUF_SIZE] ; 
} rba_struct; 

typedef struct cam_port { 

unsigned short entry_jptr; 

unsigned short portO; 

unsigned short portl; 

unsigned short port2; 
} cam_port_struct ; 

typedef struct cam_construct { 

cam_port_struct camjport_inf o [16] ; 

unsigned short cam_enable; 
} cam struct; 



rba_struct rba [RRANUM] 

tda_struct tda[TDANUM] 

rda_struct rda [RDANUM] 

rra_struct rra [RRANUM] 

cam struct cam; 



short transmitactive; 

short curtda; 

short currda; 

short previous_seqno; 

short retry; 

unsigned short rwp_table [6] ; 

short cur_rwp; 

unsigned short tda_addr; 

unsigned char far *type_ptr; 



/* transmission currently active flag */ 

/* current tda */ 

/* current rda */ 

/* previous sequence number */ 

/* transmit retry counter */ 

/* RRA location table structure */ 

/* pointer to rwp_table */ 

/* tda starting address */ 

/* pointer for packet type */ 
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FILENAME: isrlib.asm 

Copyright (c) 1990 National Semiconductor Corporation * 

All Rights Reserved * 

fc*******************************^ 

_TEXT SEGMENT WORD PUBLIC 'CODE' 

_TEXT ENDS 

__DATA SEGMENT WORD PUBLIC 'DATA' 

_DATA ENDS 

CONST SEGMENT WORD PUBLIC 'CONST' 

CONST ENDS 

_BSS SEGMENT WORD PUBLIC 'BSS' 

_BSS ENDS 

DGROUP GROUP CONST, _BSS, _DATA 

ASSUME CS: _TEXT, DS : DGROUP, SS : DGROUP 

_TEXT segment word public 'CODE' 
assume cs:_TEXT 

public _get_sp 
_get_sp proc far 

mov ax, sp 

add ax, 4 
mov dx, ss 
ret 
_get_sp ENDP 

public _set_sp 
_set_sp proc far 

mov bx, ss 
mov es,bx 
mov bx, sp 

pushf 

cli 

pop dx 

mov sp,word ptr ss:[bx+4] 
mov ss,word ptr ss:[bx+6] 

and dx, 512 
jz skip 
sti 

skip: sub sp, 4 

mov ax, word ptr es : [bx+2] 

push ax 

mov ax, word ptr es : [bx] 

push ax 

ret 
_set_sp ENDP 

public _get_if 
_get_if proc far 

pushf 
pop dx 
mov ax, 
and dx, 512 
jz ifret 
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mov 


ax, 1 






if ret 




ret 






_get_ 


if 




ENDP 




ARG OFS 


equ 


6 






public 


int 


fddi 


_int_ 


fddi 
push 


proc 
bp 


far 






mov 


bp, 


sp 






sub 


sp, 


8 





;near = 4, far = 6 (from bp) 



;work area for INT code 



;put INT code on stack 

mov byte ptr[bp - 2], Ocbh 

mov ax, word ptr[bp + ARG__OFS] 

mov [bp - 3] , al 

mov byte ptr[bp - 4], Ocdh 

mov word ptr[bp - 6], ss 

lea ax, word ptr[bp - 4] 

mov word ptr[bp - 8], ax 

;get regs values off sp, pointers are far 

push bp 



mov 


es, 


[bp + ARG_OFS 


+ 4] 


mov 


bp, 


[bp + ARGjDFS 


+ 2] 


mov 


ax, 


es : [bp] 




mov 


bx, 


es: [bp + 2] 




mov 


ex, 


es : [bp + 4] 




mov 


dx, 


es : [bp + 6] 




mov 


si, 


es: [bp + 8] 




mov 


di, 


es: [bp + 10] 




pop 


bp 






call 


dwo 


rd ptr [bp - 8] 


;do INT 


; get 


carry bit 




push 


ax 






pushf 








pop 


ax 






and 


ax, 


1 


;mask c 


;put 


regs 


values on sp 




mov 


es, 


[bp + ARG__OFS 


+ 8] 


mov 


bp, 


[bp + ARG_OFS 


+ 6] 


mov 


es : 


[bp + 12] , ax 


; cf lag 


pop 


ax 






mov 


es : 


[bp] , ax 




mov 


es : 


[bp +2], bx 




mov 


es : 


[bp + 4] , ex 




mov 


es : 


[bp + 6] , dx 




mov 


es : 


[bp + 8] , si 




mov 


es : 


[bp + 10], di 




add 


sp, 


8 




Pop 


bp 






ret 








_int_fddi 


ENDP 




TEXT ends 






end 









TL/F/1 11 42-28 



28 



FILENAME: pktint.asm 

* Copyright (c) 1990 by National Semiconductor Corporation 

* All Rights Reserved 

title TEXT - Interrupt service routine 

extrn _int_handler : near 

JTEXT SEGMENT WORD PUBLIC 'CODE' 

_TEXT ENDS 

_DATA SEGMENT WORD PUBLIC "DATA" 

__DATA ENDS 

CONST SEGMENT WORD PUBLIC 'CONST' 

CONST ENDS 

_BSS SEGMENT WORD PUBLIC ' BSS ' 

__BSS ENDS 

DGROUP GROUP CONST, _BSS, _DATA 

ASSUME CS : _TEXT, DS : DGROUP, SS : DGROUP 

_DATA SEGMENT WORD PUBLIC 'DATA 1 

assume ds: DGROUP 

rcvr_ptr dd ? 
segmoffs struc 

offs dw ? 

segm dw ? 
segmoffs ends 

DATA ENDS 



_TEXT segment word public 'CODE' 

assume cs:_TEXT 

CFLAG_OFFSET equ 2 

FLAG_OFFSET equ 6 

REGS_OFFSET equ 14 

SREGS_OFFSET equ 22 



public __drv_isr 
_drv_isr proc far 

jmp start 

db *PKT DRVR',0 /driver signature 

; setup registers on stack for MSC ' s union REGS and struct SREGS 
start : 



assume ds: nothing 

push bp 

mov bp, sp 

and word ptr [bp+FLAG_OFFSET] , not 1 ; clear carry bit 

push word ptr [bp+FLAG_OFFSET] ;put in cflag field of structure 

push di /save regular registers 

push si 

push dx 
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push ex 

push bx 

push ax 

push ds ;save segment registers 

push ss 

push cs 

push es 

push ss 

lea ax, word ptr [bp-SREGS_OFFSET j ;pass sregs pointer 

push ax 

push ss 

lea ax, word ptr [bp-REGS_OFFSET] ;pass regs pointer -> ax 

push ax 

mov ax, DGROUP ;get global data segment 

mov ds, ax ;make segment addressable 

assume ds : DGROUP 

eld 

call _int_handler ;call C interrupt handler 

add sp, 8 

mov ax, word ptr [bp-CFLAG_OFFSET] ;mov cflag to flag reg 

mov word ptr [bp+FLAGjDFFSET] , ax 

/restore registers 
; dummy pop for cs 



pop 


es 


pop 


ax 


pop 


ss 


pop 


ds 


pop 


ax 


pop 


bx 


pop 


ex 


pop 


dx 


pop 


SI 


pop 


di 


pop 


b P 


pop 


bp 


iret 




drv isr 


en 



;pop cflag of structure 
; return from interrupt 



public _app_recv 
_app_recv proc near 
ax_ofs equ 4 

assume ds: DGROUP 
push bp 
mov bp, sp 
push ds 
push es 
push bx 

mov bx, [bp+ax_of s + 10 ] ; set-up app reciever 

mov rcvr_ptr . of f s, bx 

mov bx, [bp+ax_of s+12] 

mov rcvr__ptr . segrn, bx 

les bx, dword ptr [bp+ax_of s+6] ;buffer 

mov si, word ptr es : [bx] 

push ds 

mov ds, word ptr es:[bx+2] 
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mov ax, [bp+ax_ofs] 
mov bx, [bp+ax_of s+2] 
mov ex, [bp+ax_of s+4] 
pop es 
assume es:DGROUP 

call es:rcvr_ptr 



mov 


ax, es 


les 


bx, dword ptr[bp+ax ofs+6] / 


mov 


word ptr es : [bx] , di 


mov 


word ptr es:[bx+2], ax 


pop 


bx 


pop 


es 


pop 


ds 


pop 


bp 


ret 


; return 


app_recv 


endp 


TEXT ends 


end 





update pointer ES:DI 
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0) 

1- 

•^ 
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O 
Q. 



FILENAME: pktdrv.mak 



ZI 










INC 


. \include 








CFLAGS 


= $(ZI) 


-Gs 


-c 


-1$ (INC) 


MFLAGS 


= -Ml 









OBJ = pktdrv.obj sonic. obj pktint.obj far.obj isr.obj isrlib.obj 

#LIB = . .\lib\ frame. lib 

LIB 

sonic. obj: sonic. c $ (INC) \sonic . h 
cl $ (CFLAGS) $*.c 

pktdrv.obj: pktdrv.c $ (INC) \pktdrv. h $ (INC) \sonic . h 
cl $ (CFLAGS) $*.c 

far.obj: far.c $ (INC) \sonic . h 
cl $ (CFLAGS) $*.c 



0) 

> 



isr.obj: isr.c $ (INC) \sonic . h 
cl $ (CFLAGS) $*.c 

isrlib.obj: isrlib.asm 

masm $ (MFLAGS) $*.asm; 



o 

CO 
Q. 

o 



O 
(/> 

(/> 

I- 

< 

■ 

m 

LU 
O) 
CO 
00 

a. 
a 



pktint.obj: pktint.asm 

masm $ (MFLAGS) $*.asm; 

pktdrv.exe: $.(0BJ) 

cl ${ZI) $(0BJ) -o $* 

#pktdrv.exe: $ (OBJ) 

# link /CO /LI /MAP $ (OBJ) , $*, , $ (LIB) , 

# msym pktdrv 
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LIFE SUPPORT POLICY 

NATIONAL'S PRODUCTS ARE NOT AUTHORIZED FOR USE AS CRITICAL COMPONENTS IN LIFE SUPPORT 
DEVICES OR SYSTEMS WITHOUT THE EXPRESS WRITTEN APPROVAL OF THE PRESIDENT OF NATIONAL 
SEMICONDUCTOR CORPORATION. As used herein: 



1. Life support devices or systems are devices or 2. A critical component is any component of a life 



systems which, (a) are intended for surgical implant 
into the body, or (b) support or sustain life, and whose 
failure to perform, when properly used in accordance 
with instructions for use provided in the labeling, can 
be reasonably expected to result in a significant injury 
to the user. 



support device or system whose failure to perform can 
be reasonably expected to cause the failure of the life 
support device or system, or to affect its safety or 
effectiveness. 
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